Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/pc/allfiles/Itch/loading.dcr/00004_BallManger Parent.ls

Text File | 1999-03-07 | 486 b | 33 lines

property state, numsp, startSp, ballList

on new me
  me.state = #setUp
  numsp = 20
  startSp = 60
  return me
end

on CheckState me
  case me.state of
    #default:
    #setUp:
      InitBalls(me)
    #move:
      MoveBalls(me)
  end case
end

on InitBalls me
  ballList = []
  repeat with x = startSp to startSp + numsp
    add(ballList, new(script("Ball parent"), x))
  end repeat
  me.state = #move
end

on MoveBalls me
  repeat with x in ballList
    MoveBall(x)
  end repeat
end